home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
disk
/
jukebox2.lha
/
JukeBox_2.1
/
fwd.jb
< prev
next >
Wrap
Text File
|
1993-01-29
|
483b
|
23 lines
/* skip to next track */
/* (c) copyright 1992,93 by F.J. Reichert */
options results;
options failat 11;
toc stem a.;
if rc = 0 then do;
current track;
toset = result + 1;
/* if there are tracks, skip to next */
if toset < a.0 then do;
set track toset;
end;
/* else move to last logical block */
else do;
current cdtime;
parse value result with mins':'secs':'frames;
endblock = (mins * 60 + secs) * 75 + frames - 150 - 1;
set block endblock;
end;
end;
exit(0);